perm filename CALL[SCX,LCS] blob sn#337829 filedate 1978-03-02 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		CALL RNDINT
C00011 ENDMK
CāŠ—;
	CALL RNDINT
	CALL FMT(JFM,JNP,MLX)
	CALL OFILE(21,IFLNM)
	CALL IFILE(23,IFLNM)
	CALL FORNAM(ISLAC,'SCR')
	IF(JED)CALL COLTTY(JNP,21)
	CALL CLEAN(INP,LEND)
197	CALL RUNIT
	IF(LK.GT.KZY)CALL ERR(LN)
	IF(NWZ.NE.0)CALL BGSORT(BY)
	CALL SCANR
2006  CALL RANR(VX,K)
	CALL SHORT(KNP,K)
	CALL SQYY(YY,X,Y,Z)
      CALL ACCEL